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IDENT V04-001 


'e4¢ 
$: Facility: 
i Abstract: 


Environment: 


Parameters: 


a 
optional) 


i Author: 
' Created: 


: Modifications: 
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VMSINSTAL, The Software Product Installation Procedure 


This procedure is used to install software products on 
@ VAX/VMS system. It can install VAS updates an 
upgrades, and also layered proeuets. Multiple products 
can be installed with one invocation. 


The document ‘Developer's Guide to the VAX/VMS VMSINSTAL 
Procedure’ describes this procedure in detail. Product 
kits are created with the SPKITBLD procedure or an 
equivalent. 

P1 List of products to be processed. 

Ps Device for distribution volumes. 
4, OPTIONS 


List of single-letter options. 
- create or use auto-answer file 
- invoked during system boot for recovery 
- protuce callback trace 
- VMSINSTAL debug mode 
= get product savesets and save on disk 
- eg i kit debug mode 
- log file activity 
- quality assurance mode 
(turns on the TELL_QA callback, 
and inhibits asking if the system 
disk backup was made). 
- install to alternate system root 
- produce statistics report 
P5 Device/directory if G option, or alternate system root 


option. 
P6 Optional qualifers to first backup command if G option. 


orxnaverw> 


wD 


Paul C. epggrentepentes 
11 June 198 


BLS0359 Benn Schreiber 3-SEP-1984 

Final tailoring corrections. Cleanup pass on symbol 
definitions and upcase logical names in lexicals. Add 
ability to specify new file which goes on Library disk. 

If using common system disk, allow ability to spect ty new 
file which goes on system epee! tic directory. Fix marker file 
manipulation to account for character product name. 

Save additional state in marker file. 


HWS0105 Harold Schultz 29-Aug-1984 

When searching for logical names which are to be deassigned 
found, specify the table in the search in order to know 

which table to deassign from if the name is found. 


HWS0102 Harold Schultz 10-Aug-1984 
Fix premature exit if error in directory specification. 


HWS0101 Harold Schultz OB Aug~ 1958 
Change minimum BYTLM requirement from 20480 to 18000. 


HWS0086 Harold Schultz 19-Jul-1984 
1. Add GENERATE_SDL_DEFINITIONS callback to allow 


- 
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v03-113 


v0O3-112 


v03-111 


v03-110 


v03-109 


v03-108 


v03-107 


v03-106 


v03-105 


v03-104 


v03-103 


v03-102 


j N 9 
pynerer ton of a require files. 
x unbalanced ')* and arguments in fao function 
for version output. 
Increase minimum quota requirements. 
Add explanatory text to product input on how to 


exit. 

Add grees eek option to PATCH_IMAGE. 

Give statist ¢S demon BYPASS priviledge. 

een t renee “| a geu'ce genet. ' Ste ls 
ange maxim en or product name from ) 

tires 9 to 39 if ee included) 

Add ex Lenasery text when asking for next volume in 

RESTORE_SAVESET. 


Oo ONO Fw fT 


BLS0324 Benn Schreiber 12-JUN-1984 
Correct creation of system directories. 


BLS0323 Benn Schreiber 31-MAY-1984 
More of 111. Also correct f$file usage. 


BLS0322 ; Benn Schreiber 30-MAY-1984 
More tailoring. 


BLS0314 Benn Schreiber 7-MAY-1984 
Minor corrections for tailoring. 


BLS0293 Benn Schreiber 30-MAR-1984 
Allow G option to foreign media. Couple small bug 
fixes. Support gt 26 savesets. Add tupport for 
rights data base to create_account callback. 


BLS0286 Benn Schreiber 11=-MAR-1984 
Enhance restore_saveset to move to next piece of media 
if saveset not found on current one. 


WHMO0001 Bill Matthews 28-F eb-1984 
Add support for installing to a common system root. 


BLS0271 Benn Schreiber 15-FEB-1984 

Fix problems in statistics demon. Convert f$log to 
f$trninm. Changes for V4 tailoring. In Q/A mode, don't 
ask questions re other users on the system and backup done 
ok. Correct f$parse usegs wnen peresne saveset location, 
Fix shutdown problems with statistics demon. Add file size 
to demon directory Listing. 


BLS0259 Benn Schreiber 10-Jan-1983 
Set aicostery protection before deleting. Fix quotes 
in SUMSLP_TEXT. 

MCNO139 Maria del C. Nasr 16-Nov-1983 
Fix bug with FSPARSE statement in CREATE_ACCOUNT. 
MCNOO03 Maria del C. Nasr 29-Sep-1983 


If the console is used to install the kit, VASINSTAL 
ioops in the cleanup procedure because it is tryin 

to read a file that has been closed. The fix for this 
problem is to close the files after the REMOUNT_CONSOLE 
procedure is executed. 


MCNO002 Maria del C. Nasr 15-Sep-1983 
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B 10 
When asking for next product to be installed, add EXIT 
as @ response to finish processing. “Z was the only 
being accepted, which is not obvious for the user. 


v03=-101 MCNO001 Maria del C. Nasr 15-Sep-1983 
Take out special code for TDMS and ACMS since it is 
not needed anymore. 


v03-100 PCA1010 Paul C. Anagnostopoulos 21-Mar-1983 
Major modifications and enhancements for VMS V4. 


If VMISINSTALLING is rot equated, then we were invoked to do an 
installation. Otherwise, this is a recursive callback. 


if fStype(vmiS$instaliing) .eqs. ‘"' then goto STEP_1 


Set up the CTRL/Y and error environment for the callbacks. 
If we are not tracing them, then just go off and do one. 


on control_y then goto CONTROL_Y 
on error then exit $status 
if f$trnimm(''VMISCALL_FILE’) .eqs. ‘"' then goto ‘pl 


We are tracing callbacks, so format this callback nicely. 


L = f$faol’'!24AS<!AS> <!AS> <!AS> <!AS> <!AS> <!AS> <!AS>'',p1,p2.p3,p4.p5,p6.p7.p8) 
= se 
write vattcalt file f$faol''!#e !MAS!#<~!>"',c#3,7B-c#24,1,f$ien(l) .gt. 78-c*24) 
lL = fSext(78-c#24,999,1) 
c = true 
if l .nes. ‘"* then goto cb10 
goto ‘pl 


On CTRL/Y we just bag the entire installation. 


CONTROL_Y: 


vmi$msg f ctrly “Installation cancelled via CTRL/Y." 
exit vmi$_failure 
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OVERVIEW OF CALLBACKS 


ALL callback handlers appear first in VMSINSTAL, in order to minimize 
label search time. They are grouped into three categories, as follows: 


Se FIND FILE and MOVE_FILE, because they represent over 50% 
of the callbacks requested. 


2. Standard catilbacks, in alphabetical order. 
Be Internal callbacks, in alphabetical order. 


If a callback requires a parameter which is a logical name or symvol to 
be set, that parameter should be the first one. 


Callback parameters which apectty a file should require a complete file 
spec. except when the file can ONLY be in the kit's working directory. 
Wildcarding shculd be not allowed unless absolutely necessary, since the 
files can't be FIND_FILEd first. 


Most callbacks that manipulate files accept an options parameter. ITnis is 
a list of single-character codes, which must all be unique. Other callbacks 
which accept an options parameter may use any codes. 


set the specified ECOs when proveeven an image. 
add the provided sharable image to IMAGELIB. 
produce a Journal file when patching an image. 
eep old versions of the file; do not purge. 

If tailored system put file on . torery disk. 
If common system disk, use system specific root. 

Reinstall an image before purging it. 


2orxnCcem 


File manipulation callbacks must be careful to allow the same file to 
be manipulated more than once. 


Callbacks which set various options should be of the form ‘’SET option ..."' 
(two parameters), to be consistent with the DCL SET command. 


PYCrrsrgoearvecvrrye 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


FIND_FILE logical file-spec Cdefault-spec] lecete~t {as symbol } 

work d regee n 
system specific directory 
system dir regter’s es 
error msg if not found 


PRMMMw 
MmMnok 
ee 


mal 


IND_FILE: 
f = HSparseias, att '"SYNTAX_ONLY'') ,""MISSING.MIS"’) 
if f .eqs. en £ #96" 


if po iat vee en® oe ss 
Ly _ floc ‘w''.p5) .eq. f$len(p5) then goto ff10 
"New titer . ° 


= f$parse(*'vmiS$kwd: ate "SYNTAX “we 
i fSsearch(y), -es. then \aoto Ff 

Fi -, p6 = 
ost ne R *w 
exit vmiS_success 


ff10: if .mot. vmi$common_root -Or. (f$loc("'0"',p5) .eq. f$len(p5)) then goto ff20 
L_= f$parse(’ ‘vmiSspecific: ft) 


if l.eqs. “"* then goto ft2 
if f$search(L) 6... then site #20 
*"* then ‘pé = 


p6 ant St 
define 
exit vmi  sauceet 


ff20: Ly of hee CS" -85) -eq. f$len(p5) then goto ff30 
if f$search(f) .eqs. v, then _sete tf25 
‘neg. - * then 'pé = 


exit vmiS$_succ 
ff_25: Le tSparse,, Ubssysroot:” a 
if lL .eqs. ‘"* then goto ff50 
if fSsearch(l), .eqs. vg then gare ff#30 
if pé ot mY * then 'pé = 


exit vmi$_success 
ff30: if ,{StocC aw noffie $9, f$len(p5) then ouit vmi$_success 


—~ 
— 
oO 
oO 


vmi$msg e boteges “File spec *'p3 cannot 
using default spec *" 


be pars nt = 
ee p4 oe 
exit vmi$_failure 
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E 10 
MOVE_FILE logical full-spec Coptions] 
- add sharable jooge to IMAGELIB 
- i o¢ version 
file on librer disk if tailored 
Peinstatl image before purging 
= system specific directory 


omr xe 
. 


VE_FILE: 


(floc C ‘L''.p4) .ne. f$len(p4)) .and. tit bade eq. 2) 

vmiScommon_r ( 4) a9) 

if l then t = risaeativiasdiseior’ = Dos SiNTAR “One 

if snot. (U .or, 0) then t = 1S arse(p3...,°°SYNTAR_ONLY") 

if o then t = f bpcatt nse FIC:' PS *.SYNTAX-ONLY"’) 
SYNTAX_ONLY''S 


if f$search(w) .eqs. ia exit vmi$_failur ; 
b = f$getdvilw,’F Lupe ven? -eqQs. #$getdvi(t.''FULLDEVNAM"") 
if b then rename 
if .not. b then backup ° w 't/new version/owner=original 
ww = fSsearch(w ) 
if nes. then set prot=s= =rwed ‘wt 

wf 


if ww .nes. *"’ then delete 

install = ‘Sinstall" 

if f$loc('R", eq., fShon(pe) i then goto mf10 

if f$file(f$e ay at “eM ) then install 't/replace 

if vmi$purge .and. HSlog( x ope? -eq. f$len(p4) then purge 'fSelem(0,"';'', t) 

if Sloe" ** ps) ne. f$len(p4) then vmi$cal lback UPDATE _LIBRARY - 
mi s*misroot: Csysliblimagelib.olb share ‘'/replace’’ 't 

define ig’ 

exit vmi oeeen 

write veisdefer_ file gi,” “22.” St. = 

define ‘p2 ‘ 


exit vmi success 
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ASK symbol prompt Cdefault] Coptions) Chelp) 
B- ms oy value 


D- gub le space 

H- 4% splay tte first 

I = integer value 

N= null answer is allowed 
R- rang be ~. 

S$ - str ng yelu 

Z - CTRL/Z is sl loved 


w 

if f$loc('R'',p5) .ne. f$len(p5) then wl0,8)= %x07 

by sShoRt B" 65) one. f$len(p5) .or. f$loc(''R'’,p5) .ne. f$len(p5) then say w 
= 

if f$loc('B'',p5) .ne. f$len(p5) Shon dt = ‘B" 

if f$loc Ct ave. ene. f$len(p5) n dt = ‘']"' 

if p4 .nes. then p3 = ese ne has er Wyo 

p3 = Be ite B Bee 


“a * * ps_¢ fSext(f$ or (gt, "BI 
if f$loc("H'',p5) .ne. f$len(p5) then goto a80 


if f$trninm(' VMISAUTO_FILE'’) i, "* then - 
if vmi$auto goetion 28 “Re” then goto al5 
yoadtond of. File=s 76 cere pes "53" yatsrece net. file v 
Sedi7t(vV,""COMPRESS, TRIM, UNCOMMENT , UPCASE'') 
goto 


v= CEND-OF -F FILE)" 

read/end_of_file=a90 vmiSauto file v 
f fSelem(0, yee, «nes. p3 then goto a90 

v = f$e Selem( ad, . ¥ 

say p3.v 


if f$trninmCVMISAUTO_FILE’) .nes. ‘"* then 
f ymiSauto -o6t ion eqs. ‘W'’ then write vmi$auto_file p3,"'\"'.v 


if v .eqs. then goto 
if v .eqs. thes v= tSedi t(p4,""COMPRESS, TRIM, UPCASE'’) 


if v -098- vw cand. f$loc("'N'.p5) -eq. #$len(p55 then goto al0 


*p2 == f$ext(0,1,v) .eqs. ‘Y"’ 

if rStoc ves" -eq. 0 .or. f$loc(v, hy fe -eq. 0 then exit vmi$_success 
ating BY yesno “Please enter YES or NO. 

goto al0 


"o2 == f$intlv 

if f$type(v) voas.. “INTEGER then exit vmi$_ success 
parone o° integer ‘Please enter an integer number."' 
goto a 


*p2 == 
exit vais. success 


if #Slog( % 905) -eq. f$len(p5) then goto a10 

exit vmi$_success 

if pO .eqs. *"* then p6 = “Sorry, no help is available." 
if fSext(0,1,p6) .nes. ‘"a'' then say p6 

as Stout ts, -1,p6) .eqs. ‘a’’ then iP 


vmi$msg f autosync ‘‘Auto-answer file is not in synch with questions.” - 
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CHECK_NET_UTILIZATION symbol blocks 


HECK _NET UTILIZATION: 
ele. vmi$free blocks 


otie val success 


——EEEwEee 
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CHECK_VMS_VERSION symbol [version] (baselevel] 


' 
$i 
$! This gacsoect is 9b stete as gf VMS V4. However, it must remain 
+ here for compatability with v5. 
SCHECK. VMS VERS 7 e 
yee a* EetetT 999,18 exsyi ( VERSION") 
$ Yt’ #$ext (0.1 , tSgetsyi (VERSION) .nes. "V" then goto cvv20 
7 i = f$loc("’."’ 
t v= {Staot"i2fl tas", #Sint (fSexg (O,i.v)) ,fSent(iet,1.v)) 
$ if p3 .nes. '"' .and. v .ges. p3 then ‘pe == 
: exit vni$_ success 
gewved: if + tae, OQ. 3 then pS = p& + =" + pd 

v Bt fSext(0, 3, p4) .and. v .les. f$ext(4,3,p4) then ‘p2 == true 

4 exit vmi$_success 


ow 
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CREATE_ACCOUNT username qualifiers 
UPDATE_ACCOUNT username qualifiers 


SCREATE -ACCOUNT: 


valterg i account ‘This installation ''m an account named ''p2."' 
o6 proust "then ext Mb feet: syeened. dat S,e 

—— hen exit $statu 
authorize = ‘‘S$authori ze 
define/user netuaf 'fSparse(''netuaf’’, f$trninm(''SYSUAF’'),,,"'SYNTAX_ONLY'') 
def ine/user rightslist "fSparse("rightslist’, fStrninm(''SYSUAF'),,>°'SYNTAX_ ONLY*’) 
authorize ‘v ‘p2 ‘p3 
deassign sysuaf 
exit vmi$_success 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
£ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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K 10 
$! CREATE_DIRECTORY SYSTEM hierarchy (Cqualifiers] 
ts USER directory 
SCREATE_DIRECTORY: 
: goto cd_'p 
$cd_SYSTEM: 
& yateneg i sysdir "This pro uct creates system directory (''p3]." 
& create/directory vmi$root:('p3] 'p4 
$ f .not. vmi$common_root Fhen ait vmi$_success 
$ create/directory vmi$specific:('p3] 'p4 
$ type sysSinput 


If you intend to execute this Layered product on other nodes in your 
VAXcluster, and you have pe appropriate software License, you must 
prepare the system-specific roots on the other nodes by issuing the 
following command on each node (using a suitably privileged account): 


% write SypSoutput “i $ CREATE /DIRECTORY SYSSSPECIFIC:C''p3'] ‘"p4'"’ 

$ exit vmi$_success 

$cd_USER: 

$ if fSgetdvi(p3,"FULLDEVNAM’’) .eqs. f$getdvi('’VMISROOT’’,""FULLDEVNAM'’) then - 
vmi$msg i - gS “This product creates system disk directory ''p3."’ 

$ create/directory ‘pS ‘p4 


$ exit vmi$_success 


PAAMMMMMMM 
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$! DELETE_FILE full-spec ‘ 


t 
SDELETE_F1 
yatbt ind yniSdel —_— 


if f sotbsarseetetat got exif Sstatus 


$ ns 
it Rist Selent weet! f$trninm(''VMISDEL’')),"*KNOWN'') then i l i$del/delet 
; elete pectbelenty ts «Jess en install vmi$del/delete 
: od vmi$_success 

$d 

$ 


f20: write vmi$defer_file p1,"' "', f$trninm(''VMISDEL"') 
exit vmi$_success 
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GENERATE _SDL_DEFINITIONS module-file Language optquals options 


$ 
$! 
$! This callback handles SDL gyneretion of definitions 

} (Currently, there are ne defined options for this callback. 
3; Any options suppl oe, will signaled with an informational 


message and ignored.) 


' 
' 
' 
$! First check for the existance of SYSSSYSTEM:SDLNPARSE.EXE and 
! VMISROOT : CSYSEXEJSTARLETSD.T te before proceeding further. 
i Also check for existance of o op 

ignored message. 


ScENERATE =SDL DEFINITIONS: : 

$ $find he peg ow SDLNPARSE. cm ' s.e 

% ye" pidge $st then exit $st us 

. vmiS$find vaigsde VMISROOT: csyst ie STARLETSD.TLB ‘”’ 
$ if .not. Sstatus then exit $status 


tions. If any found, signal options 


$! 
+ Form output file specs from requested Languages. 
$ ing s “— 
$ y=0 
$sdla 

Ten spase 77" the 

if x segs. ew then n goro sdlb 

ing = 1“ ¢ “symiS$kwd:"' 

ie 
oto sdla 


a 
=~ 
= 


ng 2 lng + arr = 


Check if single module name or file containing module names. 


noo 
sulti = " Stoc("'a"',p2) ene. f$len(p2) 
if .not. multi then goto sdl2 


Have a file which contains the name of the modules to extract from the 
library. Process each name completely prior to getting the next name. 


read module name from file 

extract module from .TLB Library 
rufi SDL on the extracted module 
delete extracted library module 


p2 = p2 a ome 
found = 0 
vmi$find vmi$list ‘p2 vmi$kwd:.dat w,e 
if .not. $status then ae sgl} 
apen/reed vmi$list_file vmiS$list 

ead/end=sd14 4 vaistist tile p2 
library/extract = ,perey neh = vmi$kwd:'p2.sdi vmi$sdl 
if getotys, ne gore Bie 
" pisaeg fail ‘Fai 300 to extract ‘"p2 from library.” 
ifs then sote sdl1 


sdl3: cSt lsc moveroga't **o4 vmiSkwd:'p2.sdi 
Ui - $status then goto sdl5 


a's "4 
delete/nolog vmiS$kwd: {g2-sdtse 
oF aunts then goto sdl 

set on 


mem mmm mmm 
—_—> 
. 


aa 
-— 
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$ 
$ 
$ 
$ 
$ 
$ 
$ 


sdl4: 


sdL\5: 


xit vmi$_success 
close vmistist tile 
et on 


f .not. found then exit vmi$_failure 
exit vmi$_success 


set on 
exit $status 
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etsyi(p3) 
success 


PARAMETER: 
“mis? 


a 
5 
c 
a) 
3 
e€ 
~ 
“” 
[og 
us 
—- 
Ww 
= 
io 
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a 
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SYSTEM 


$! 

$ 
$SGET 
$ 
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$! MESSAGE FYRS INSTAL severity i text eee 

$! f P2 is VMSINSTAL, this is a special internal call. ALL 

$i arameters bumped by 1. 

$! Text is strings enclosed in quotes. If text doesn't begin with 
$! ‘%" then r ‘'="" is prefixed, depending if first or later 

+ messages. 


SMESSAGE : 

t if p2_.nes. *‘VMSINSTAL”’ then goto m5 

$ b = ““RVMSINSTAL="" + p35 + “="' + pG +", " 

7 i=5 

$ goto mi0 

wei ; = " + fSext(0,fSlen(vmi$product)-3,vmi$product) + ‘="' + p2 + "'="' + p> +", " 
= 

$ 

$m10: if tSext(0,1,p'i) .nes. ‘'%'' then say b,p'i 

% if fSext(O,1,p'i) .eqs. ‘'%"’ then say p'i 

$ b(0,1):= "=" 

$ izi¢1 

if p'i .mes. ‘"* then goto m10 

$ if p2 .eqs. ‘‘VMSINSTAL"’ .and. p3 .eqs. ‘F’' then exit %x10f50004 

$ exit vmi$_success 


wv un” 
ae - 


v 
- 
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$! PATCH_IMAGE Logical patch-name-type [Limage-spec] Cones ” be 
$! - —— 
$! - eee old versions 
3 A = PATCH/ABSOLUTE 
SPATCH = 1TRAGE 
& ih find yatScon P3 valtaug: w,e 
$ not. Status then exit eepetus 
$ if pS .nes. then got © pai 
$ sey of vaiStonp. { le vmi$com 
% read vmi genp.f 
$ close vmi Stemp ti te. ~ 
% l= f$edit(l- 1 ‘ FOMPRESS. TRIM, UPCASE"’) 
$ pS = f$elem(0," re 
$ p5 05 ot tsetet itt laa” 
$pailS: vmi$find yniSexe ° ps. é roane 
% if .not. Sstatus then “on *$Statu s one - 
$ d = f$parse(’’ ivmiSexe’’,,,: evice™. "SYNTAX ONLY") + f$parse(''vmi$exe’’,,,'DIRECTORY'',’’SYNTAX_ONLY'’) 
$ n = f$parse(''vmi$exe'’,,, pees "SYNTAX ONLY 
$ 
£ vmi$abs = ‘"' 
$ if f$loc("A", Piet ene. f$len(p5) then vmi$abs = ‘'/ABSOLUTE” 
$ define vai$) n 
; yeredr l ( J i 5) {st (p5) th i30 
¥$loc ye “9a; . en oto pa 
$ vmi$find ymi$jnt rd : vm ° 
g if vmi$ nt weds. | then “define aA Sint vmiSkwd: 
t if vmi$jn oes 130 
t vmi$cal oF, Sate FILE oeysint vmi$jnl 
: not. $status then exit $status 
$pai30: define/user sysS$input vmi$com: 
% vmi$no_output 
$ patch/Gutputeval Shug: 4 ournal=vmi$jnl*vmi$abs' vmi$exe 
& if vmi$exe .eqs. ~_ va"seost ack Amt sa IMAGE 2° Ae: exe ‘d 'p5 
& if vmi$exe .eqs. ‘ 3 if .not. $sta then exit $sta us 
§ if vmi$jnl .eqs. 2 then vmi$callback PROVIDE FILE vnigjate n.jnl ‘d 
$ if vmi$jnl .eqs. then exit $status 
$ exit vmi$_success 


AMMA 
= 


SPRINT _FIL 


PAAAAAMMMMMM 


PRINT_FILE full-spec Ccopies] 


not. en ". 


Tok: Sotatus — 
us t 
t 33 -eqs. then p 


pec vmi$product/ 
. ws $status then vm 


exit “yaiS_success 


w,S 
"h, 


in 


$Status 


pies='p3 vmi$pr 
sg w poprint “File *"p2 cannot be printed." 
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ww 


PRODUCT procedure:callback parameter ... 


This callback allows product groups to have their own special 
callbacks which do things useful for their product installations. 
The base product (e.g., CDD, poage hs provides a procedure which 
handles the callbacks, and then other products can use the 
callbacks via this special URSINGTAL callback. 


PRODUCT: 
ymiStind vmi$com 'f$elem(0,"':"',p2) vmi$root: Csysupd].com s vmi$com 
f vmi$com .nes. ‘'S'' then vmi$msg e nopsproc ee pa 
mrroduct-apeci tfc ee eres peure ** fSelem(0, ""s"",p2) does not exist. 
if vmi$com .nes. hen exi ry af@ilure “7 : 
@vmi$com *fSelem(1,"':"',p2) ° # pat a ee oe ee ee ee 
exit Sstatus 


= 


Pew werguannerreren 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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: PROVIDE _DCL_COMMAND name-type 


PROVIDE ea F p2 pratt fact wee 


Sittss getSecon‘cqyst 
nid miSexe . Leaps Cgyst ibd bidcltables.exe ‘"’ w.s,e vmiSexe 
iPind stetu te t 
et valsexe cogs enzynis xe/o goutryniShydsy 
eqs. am, vm seuiperk PROVIDE. PAGE ymi$exe deltables.exe - : 
*f$parse(’ cvni "SYNTAX “)'' f$parse(''vmiSexe’’,,,'‘DIRECTORY'',""SYNTAX_ONLY’") 
if vmiSexe .eqs. ''S’’ then {f° Bay status Ke exit Sstatus 


set command vmi$cid 
exit vmi$_success 


PAM 


PAAR PMV 


a= 


$ 
$ 
I 
P 
d 
$ 
& 
$ 
$ 
I 
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$! PROVIDE _DCL_HELP name-type 


grRowiee oPCh eH ° 
miSzatlback UPDATE _LIBRARY vmi$ vmi$root:CsyshlpJhelolib.hlb help ‘‘/replace’’ vmi$kwd:'p2 
ex at 


1 11 
PROVIDE _FILE Logical name-type directory Coptions] 
K = keep old versions 
L = Put on Lib disk if tailored 
0 = Put in system specific root 


PRON 


PROVIDE _F ILE: 

vmiSfind vmi$S ‘p3 vmiSkwd: we 

if .not. Sstatus then exit Sstatus 

i*) = 

if vmiScommon_root and. (f$loc(''0'',p5) .ne. f$len(p5)) then o = "'0"' 
vmiStind vmi$old '"p3 'p& s'o vmi$old 

if vmi$old .eqs. ‘"' then vmi$callback MOVE FILE *p2 "p4''p3 k'p5''o' 
a bet -eqs. ‘'S'’ then vmi$callback MOVE_FILE "p2 vmi$old 'p5''o' 
ex status 


PRHAARMAHMMNM 


$! 
$ 
$M 
$ 
$ 
$m 
$ 
$ 
$ 
$ 
$ 
$m 
$ 
$ 
$ 
$ 
$ 
$m 
$ 
$ 
$m 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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$! PROVIDE_IMAGE logical name-type directory Coptions] Cecorlist ] 
sj ; - aa Hg fH tied YY pes 
$i K - fee old v 
$! L- % lib ersten i tailored 
s 0- put n system specific root 
SPROVIDE ol RAGE : 
7 iSfind vmiSnew ‘'p3 vmi$kwd: w.e 
; ‘t not. Sstatus then exit $status 
$ ° S swe 
$ if vmiScommon_root -and, (f$loc(''0"',p5) - sof Stentp5)) then o = ‘'0"' 
$ if #$Lo¢ . gb? 04, fs ont “ gfe? ~y 
$ open/ar ce a tea. ti yatrx vmi. 
$pi22 write vmi$temp af SET ree “a a 


U 

oc ("*,"*,p6)+1,999,p6) 
t p6 avis then goto pi22 

close yaiStomp, & 
att mgene ol sysSinput vmiSkwd:vmi.tmp 
vm pu 
patch/Gutputeval Sind: {pournes cms vmi$new 
purge ' m(0,"'s'', ¢$trninm( VMISNEW)) 
set Phil ‘ aaiiede a tmp; 
delete/nolog vmiSkwd:vmi.tmp; 


ao] 
Nm 
Oo 


vmi$find vmi$old “ps *p4 s'o vmi$old 

if vmi$old .eqs. then satécaltback MOVE_FILE "pe "p4''p3 ' ps k'o 
if vmisold eqs. "'S'’ then vmi$callback MOVE_FILE "p2 vmi$old Roger’ ° 
ex status 
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$! 
$ 
$0 
$ 
$ 
$ 
$ 
$ 
5 
$ 
$ 
$ 
$ 


»v 


$,e 
$status x exit $status 
if vmi$safety then goto rf20 
rename ‘f$trninm(''VAISREN'')® 'p3 
exit vmi$_success 


write vmiSdefer_file pi," "', f$trnimm(''VMISREN’),"' '',p3 
exit vmi$_success 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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RESTORE _SAVESET Letter Coptions] 
N = saveset begins on next volume 


SAE TONE SRVESET 
$ 


et noon 
if fStype(vmiSbackup_openin) .nes. '”’ then goto rs5 
vmi$no_output 

vmi$no_error 

beckue vmiSkwd:vmi$no_such_saveset/save vmiSkwd: 
vmiS$backup_openin == Sstatis 


= p2 

tS Length 03) eq. 1 then goto rs7 
Hebength<p ) .eq. 0 then goto rs95 
Ts 


e ere ) 
e. 26 then goto rsi00 
ssn = f$fao(''VM1_!47L"',v) 


vmi$msg i restore ‘Restoring product saveset ''p2..."' 
rewind = *'/NOREWIND'’ 
f = ‘‘VMISKWD: VMIBCKERR. TMP" 


If the distribution volume was mounted, and the caller specified 
that this saveset begins on a new volume, then mount the volume. 
We may also come beck up here if we find that the required saveset 
isn't on the current volume and we want to try the next. 


Say Please mount the next distribution volume on '‘vmi$device’."’ 
vmi$callback PLACE VOLUME ‘(If no more volumes, answer NO.)' 
if .not. Sstatus then goto rs90 

mount/foreign/noassist/nowrite ‘vmi$device 


Try restoring the saveset. This may involve rewinding a tape in 
case the savesets were out of order. If success or warning, we're 
done. If any error other than BACKUP-?-OPENIN, that's a failure. 


if f$search(f) .nes. ‘"* then delete 'f';* 
define /user sys$error ‘f' 
vmi$no_output 
backup ‘rewind ‘vmi$place’'vmi$product.'ssn/save_ set vmiSkwd: 
f Sseverity .or. S$severity .eq. 0 then exit vmi$_success 
$status .ne. vmi$backup_openin then goto rs90 


if 

If the saveset was remote or on tape, then we can't find it. 
If it was on a disk that we mounted, try the next volume. 
if 
if 


vmi$remote then goto rs90 
f$getdvi(vmi$place,’DEVCLASS'') .eq. 2 then goto rs35 
f .not. vmi$remount then goto rs90 


i 
oto rs 

Bt i "“/REWIND’’ .or. p2 .nes. “‘A'’ then goto rs90 
rewind = °'/REWIND : 
vmi$msg i rewind ‘The tape wili be rewound to try again.’ 
goto rs2 


We come here in the event that the saveset cannot be found. 
vmi$msg e nosaveset ‘‘Saveset ‘'p2 cannot be restored." 


w = f$search(f) 
if w.nes. '"’ then type 'f' 


| at 
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» 


% 


395 


$ 
$ 
% 
$ 
$ 
$ 
% 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$r 
$ 
$ 
$ 
& 
$ 
$ 
i 
$ 
$ 
$ 
$r 
$ 
$ 
$ 
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exit ums. teilur 


vm i Sm 
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M11 
aoe delete 'f';* 


tei “nu saveset “Null saveset name specified to RESTORE_SAVESET." 


itt aveset “Illegal saveset name ''p2 specified to RESTORE_SAVESET"’ 
u 


n” 
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PAAAAAAAAAAAAAAAHAAA AAA AH AR AAHAHAAHIAAR 


$! 

$ 

SSECURE FILE: 

$ find ymi$ ‘p2 ‘"’ 

$ f .not. status, then next Sstatus 

$ if pS .nes. ‘*' then set file vm Yowers p3, 
$ if p& .nes. then set protection=('p4) vmi 
$ exit vmi$_success 


ary 


| ! SECURE_FILE full-spec Cowner-uic) Cprotection] 


bad PAAMMMMM 


— 


B 12 


SET_SAF 
goto ss_‘p3 


“vm aiSsafety == true 

f (p4 + p4/10) ie, vmi$free_blocks then goto ss1 
vmi$msg e Poeakutil “This product requires 
exit ern. failure 
ss_CONDITION 
td ae == (p4 + p4/10) .le. vmi$free_blocks 
goto ss10 


vmi$safety == false 


Update the state in the marker file so we can tell which safety 
mode we're operating in. 


uw 
w 
_ 
o 


vmiSupdate_marker 

read vmiSmarker_file m 

mC111,2):= ‘fSext(vmi$safety,1,"'US'") ! State S = safety, U = 
ur te/update patsnerker., file m 

close vmi$marker _f 

exit vmi$_success 


SET_STA: 


PPRADAA APA PAF HF HF OF HF OF OF 4 & &F OF & 7 FH HHH 
4 


vmi$startup == ‘‘avmi$root:Csysmgr]"’ + p3 
exit vmi$_success 


"ps Re during installation. 


unsafe 


if p3 — Ay 7 then vmi$callback ASK pra loneree "Do you want to purge files replaced by this installation” - 


$! SET IVP YES | NO} aan? postions 
$! PURGE YES | NO {| ASK va * ons 
$! - display question help first 
$! REBOOT {YES : NO} 
$! SAFETY {YES peak | CONDITIONAL peak | NO} 
+ STARTUP name-type 
$SET 
: goto SET_'f$ext(0,3.,p2) 
SSET_IVP: 
$ if p3 .eqs. ‘~~. * then vmiS$callback ASK vmi$ivp ‘Do you want to run the IVP after the installation’ 
yes 04 RR lt te HELP_IvP" 
$ if p3 .nes. Regh then vmi$ivp == p3 .egs. "YES" 
: exit vmi$_success 
gSET_ PUR: 
Pf “**ymi$callback HELP : 
$ if p3 on. "ASK" then vmi$purge == p3°.eqs. ‘YES’ 
: exit vmi$_success 
SSET_ 
$ ymi$reboot == p3 .eqs. ‘‘YES"' .and. .not. vmi$alternate_root 
$ exit vmi$_success 


7 
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sti5: 


st30: 


2 ° 
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ates i Logteat command-name-ty ype: 
le-Spec FILE old=-checksum Cnew-checksum] Copt fons) 
Lib-spec,member type K = keep old versions 


SUMSLP_TEXT 


~ymiStind ee a pe vmi$kwd: w,e 
-not. Sstatus then exit $status 
if p& .nes. then goto st! 
Soeyirees vatotere.. f Le vmi$com 
read vmi$temp_f 
close bathe fo np le, 
Ll = f$edit(l '** “COMPRESS, TRIM,UPCASE"’) 


p4 = fSelen( 0 PN 
p5 = fSetem(]." edt 
po = fSelem(2,"' "', 1) 
p7 = rpepeni? Sen atk 
p8 = fSelem(4,"" *', 1) 
if pS .nes. “Piet then goto st30 


vmiS$find vmi$txt ‘p4 ‘"' e vmiS$txt 
f .not. $status then exit *gStatus 

checksum vmi$txt 

if checksum$check sum .ne. Ms then gote st9 

é = f$parse(’ ‘vmi$txt' oe, DEN E*', "SYNTAX “ony f$parse('vmi$txt’,,,'D RECTORY'',""SYNTAX_ONLY*') 
f$parse(''vmi$txt’ eee, NAME!" "SYNTAX_ONLY™) fSparsec Waster oP YPE ES YNTAK. ONLY'')~ 

edit? eun/euteut= evmiskwds' n watétut/upditecunt$cos 

if vmi$txt .eqs. ‘'S'’ then vmi$callback PROVIDE FILE "p2 'n ‘d 'p8 

if vmi$txt .eqs. ‘’S’’ then exit $status 

exit vmi$_success 


lL = f$ext(0 Shot +.aPe) -P4) 
vmiStind vmi$li 
aT “not. $status chen onft $status 


=p 
library/' pS/extract= *m/output=vmi$kwd:'m.vmi vmi$lib 

checksum vmiSkwd:'m.vmi 

if checksuaSchecksum ne. *p6 then delete/nolog vmiSkwd:'m.vmi;* 
if checksum$checksum oO *p6 then oto, st90 


edit/sum/output=vmiSkwd:' OMS miS$kwd: *m. ymi/update=vmi$com 

yy hong UPDATE LIBRARY "D2. ymi$tib "D5 “/replace’’ vmiSkwd: 'm.vmi 
s = $s 

delete/nolog vmiS$kwd:'m.vmi;* 

exit s 

if p7 .nes. *"’ then if checksum$checksum -ne. ‘'p? then goto st92 


vmidmsg i updated “File ‘'p4 is already updated." 
exit vmi$_succes 

vmi$msg e “tamper “File ‘"p4 has been tampered with." 
exit vmi$_fai 
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TELL_QA message 


exit vmi$_success 


LL_QA: 
if vaiSqe then vmi$msg i qanote ‘'NOTE TO QUALITY ASSURANCE PERSON: '''p2'"’ 
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$! UPDATE_FILE Logical full-spec 


$ 
SUPDATE_F 1 
yatbt ing *p2 ‘pd ‘"' w.s. ¢ vmiSfil 
ot sei atus then exit $status 
+. soty -or. vmi$fil .eqs. ‘‘W'’ then exit vmi$_success 
Skwd:*.*; :/ownerz=origina 


Ww 
PY: 


Ww 
pr’ 


i 


backup, ‘po vai MOVE _FILE’* pe ‘p2 
exit $status 


Ww 
rv) 


w 
oe 
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$ 
$ 
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$ 
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$ 
$ 
$ 
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UPDATE _LIBRARY logical full-Lib-spec type qualifiers Cwild-full-spec] 


SUPDATE_LIBRARY: 


vmiS$find 'p2 'p3 ‘"’ s.e 
if .not. Sstatus then exit S$status 


Update the state in the marker file so we can tell which Library 
we are updating right now. 


vmiSupdate_marker 
at vmiSmarker_file m 


m 11§°d23" L 

m(115,64):= ‘f$trninm(p2) 
write/update vmiSmarker_file m 
close vmiSmarker_file 


Library/'p4''pS ‘p2 ‘pé 
s = $status 


' state xL = updating Librar 
‘i ; ? d ; 


3 
brary being update 


Update the state in the marker file so we can tell that we finished 
updating the Library. 


vmi$Supdate_marker 

read vmiSmarker_file m 

mC112,1):= ! state x<space> = not updating 
write/update vmiSmarker_file m 

eteee vmiSmarker_file 

exits 


Q cmre 
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$ 
$ 
$ 
$ 
$ 
$ 
$ 
i 
$ 
$ 
$ 
$ 
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$! The following callbacks display help for questions we ask. 
SHELP_BACKUP: 
$ sys$in 


type ut: 
VMSINSTAL attempts fo ensure that a power failure or system crash will not 
corrupt your system disk. However, for absolute safety we recommend that 


e 
SHELP_CONSOLE_750: 
$ type sysSinput: 
It is not necessary that a console volume be mounted in order to boot a 
ited whe However, it is recommended that you keep one mounted anyway. 
ex 


SHELP_CONTINUE: 
$ type sysS$input: 
The above conditions may cause VMSINSTAL to function improperly. In 
particular, preetens may occur with file ownership if you are not logged 
into the SYSTEM account. Furthermore, the existence of other processes 
may lead to interactions with VMSINSTAL that cannot be anticipated. 
if you cone at this point, you do so at your own risk. 

ex 


4 
SHELP_DEVICE: 
$ type sysSinput: 
Please enter the device on which the distribution volume is to be mounted. 
o If the kit is on console seal, ou can use the console device 
or any other diskette or TUS8 drive. 
If the kit is on magnetic tape, you can use any tape drive. 


If the kit is in a disk directory, you specify the disk 
and directory in the standard format. If you have DECnet, 
P Faas directory can be on a remote node. 
ex 


$ 
SHELP_GET: 
$ type sysS$input: 
Please enter the device and directory into which you want the product 
savesets copied. Once the savesets reside in this directory, you may 
install the product directly from there, saving time over installation 
{res the cqnnote media. 

ex 


$ 
SHELP_IvP: 
$ type sysS$input: 
Most products provide an Installation Verification Procedure (IVP) 
which verifies the completeness and accuracy of the installation. 
jeu may bh to run the IVP immediately after installation. 

ex 


SHELP_LIBRARY: 

$ type sypSineyt: , 

In order to tailor the system disk, the Library disk must be mounted. 

Please enter the device specification of the drive on which the Library 
isk will be mounted. 

H exit 

SHELP_PLACE: 

$ sys$input: 


type 
If there 4 anything preventing you from mounting a volume on the device, 


-——<—-— = " 
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H 12 
puck as je of such a volume, then simply answer YES to this question. 
x 


SHELP_PRODUCT: 
$ type sysS$input: 
Please enter the names of the products you wish to process. 
o If the distributicn is on congete media, then there is only one 
product. Just enter an asterisk (*), 


o If the distribution is on disk or tape, there gen be wi etH 
promeets nter a List of product names. tem in the list can 
the facility code for the product (e.g., COBOL), in which case 
all yore ions and uedetes are eresqeeee in order. ft can also 
be the identification of a specific version of a product. This 
is entered as the facility code followed seqeerety by ihe 
version and update numbers in the form vvu (e.g, COBOLO20, vMS032). 


o If the distribution is on disk or tape, you can process all products 
$ ;>Y entering an asterisk (*). 
ex 


SHELP_PURGE: 
$ type sysSinput: 
During this installation, new files will be provided to replace existing 
versions. You may purge these older versions to save disk space, or keep 
on if poy, reek. they may be of use. Purging is recommended. 

ex 
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MOUNT _LIBRARY_DISK 


~LIBRARY DISK: 


f f$tFninm("LIBSSYSDEVICE™) .nes. '"’ cand. f$trninm("LIBSSYSROOT) .nes. '”’ then goto mid10 


earoeat tars ASK vmiS$dry “On which Grive gill the Library disk be mounted” - 


fa reset thers HELP ol 1BRA +e 
if f$loc(": - vmi$drv) .eq. f$ heave eaany then yvmiS$dry == vmi$dryv + ' 
2s ; {Sparse (umisdry rE"5 pvite "*SYNTAX_ONLY'*) 


vmi$drv 

‘t FSgetavi (vmisdry "E : 
tyat are DEVELASS") -eq. 1 then goto mid5 

one e bad Todev "Please specify an explicit disk drive.’ 

om 
ae Shite be Se ya then dismount/nounload ‘vmi$drv 
vmi$callback PLACE_V UAE ‘Please mount the Library disk on "*ymi$drv."' 

-not. S$status Bony exit $status 
d = vmiS$drv 
goto mid20. 


:ds asd ne'r AY Wapayseerice 
if f$getdvi(d," MNT’) then vmi$tailor dismount 
f .not. oe tase exit $status 
: vmiS$tailor mount/write ‘d 
f .not. S$status then exit $status 
if yorsalyernate. root then oo vmi$_success 
vmi$find imageliB vmi$root: Ceysi ibd iaage elib. 
vmi$find starlet vat scnetrt stgyss tee star st-olp ; 
d = f$trninm("IMAG GELI parse(''] IMAGEL 1B’ ihe 
- fSparse( ATMAGELIB™, >» VERSION »'SYNTAK_ONLY''S 
define imagelib ° a. -. “- 
d= fStralnaC ‘STARLET'') = f$parse(''STARLET'’, ays f fa POUT AR ONLY’) - 
Sparse,’ HETARLET SO VERSION’ "iS YNTAX_O 
define starlet 
exit vmi$_ ne 


“SYNTAX_ONLY'') = 


| 
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$! 
SOPEN_REPORT FI et 


PH PRSH PKK KCKVCESM 


PAAMAH 


OPEN_REPORT_FILE logical file-spec heading 


open7write ‘p2 'p3 pe 
write ' ‘P *tSta0( TLIL!AS = !AS"',p4,vmi$pretty) 
write ° 
write ‘P 
write ‘p pha is 'AS at !AS." 

“ABSOLUTE, one pfSext(12,5, fStime())) 
n= _fstentnnt S¥s$uop yg Ke ‘ 
i eas. * then im nie 
write’ pe teteet Node 'A 


de: }. Tye RE Mt SID Register: !XL", - 
tSgetsy iC en) iia "SID 
write 38 f$Tao(' VMS vers’ on: figetezic VERSION") ) 
write 'p eeetarii CART$R001 sk My blocks, ‘UL free), Label: !AS"', - 
tdvi (“VMISROOT'', “F 


Ast: 

f$3etavi ‘VMI $ROOT"', WAXBLOCK™) t$getdvi('VMISROOT",“FREEBLOCKS), 
f$getdvi ('’VMISROOT’’,°VOLNAM'’) ) 

write ‘p2 f$faol'’System Root: AST fStentnm('VAISROOT")) 

af vatécetiaring eq. 2 then write ‘'p2 ‘Tailoring is in effect." 

write 

write ° 

exit vmi$_success 


” —— 


PAAMMMMMMMMW 


$! PLACE_VOLUME prompt 
seve Pao oe 
ynisee ce Lback ASK “val “we cts ready’ '"' b 
miS then exit ve $. , 
vmi callback AtK ve sit lopgssibte, to fulfill the request" - 
seat bork HELP_PLACE 
$ if vmi$ then exit vm ure 
$ goto PLACE_VOLUM 


a 


$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 


2 


$! REMOUNT_CONSOLE 

SREMOUN gE: * 

if f$ etdvi(d,“ALL then deallocate ‘d 
n= A, 4 ag 

if e. Ay ote, rc_'n 


vaisasg w noconsole pnkhown CPU type ‘'f$getsyi(''CPU"’)."' - 
‘Console volume cannot be remounted."' 


” 


exit vmi$_success 


vmi$callback PLACE VOLUME ‘Please mount the console volume on CSA1: 
egretsn $status then exit $status 
go 


rc_2: emery” ASK vmi$ “Do you want to mount the console volume"’ 
opin 'Scol Lback HELP_CONSOLE_750 
if .no hy ymiS t hen exit vmi$ success 
ymiscaliback PLACE VOLUME ''PTease mount it on CSA1: 
f .not. $status then exit $status 
goto rc20 


ro.3: if Pegetgul USAR. WNT") then exit vmi$_success 
d = ee SAe:"* 
goto rc20 


PAHAPAAGAAGA PEHHFHXHEHSM CVV 


$rc20: mount/foreign/system/protection=s:rwlp/nowrite/noassist 'd console 


$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 


2 


exit vmi$_success 


2 
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$! eee rerreeeereereerwm wr eoereeroweeest est eeeeteeeeewtmeeewmoeeceswewemoemeee@s. eee neceoeaeewaaece 


$! 

$i This is the mainline f 4 fre installation procedure. ' 
$! Step 1 is overall initialization. s 
one 
$! - Oe a few symbols for some fundamental options. Save t : 
$! lea t device/directory so we don't lose it when we Sees ten ° 
$! all the logical names. 


vmi$version = ‘'V4.0"" !VMSINSTAL version 
vmi$booting = fSloc( 8 ne. aq [Slentes 

vmi$debug = f$loc("D" my on (p4 

vmi$saved_dir = fSenvironment(’ REN ") 


Get rid of the user's personal commands so they don't screw us up. 


delete = ‘‘delete"’ 
if .not. vmi$booting .and. .not. vmi$debug then delete/symbol/global/all 


Display a nice greeting seth 


write sysSoutput’ 
say fSfag"i/ty!_ tAS! Wyatt is !AS at !AS.!/!AS!/", 
"VAX/VMS" Software Product Instailation Procedure. "*vmi$version’™, = 
fScvtime(, ABSOLUTE’, "'DATE''), f$ext (12,5, fStime( 
"Enter a question mark (?) at any time for help. Ms 


PAPHRHHHHHROHHHHOEMN 


Disable CTRL/Y until the environment is consistent again. 


set nocontrol=y 


Set up the standard environment in which we operate. 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


vmi$saved amg = fSenvironment (''MESSAGE"') 

set message/ mc St tyloower ie y7 teene (i eet tens tout 

if .not. vmi$debu ae), vmi$saved_privs = f$setprv('‘all ,nobypass’’) 
vmi$saved oulg =f a... 

if .not. vmi stebus -4liay set uic C 

vmi$saved_prot = Senv{ronment “PROTECTION” 

set protection=(s: vag o:rwed,g:rwed,w:re)/default 

set default missing: missing 


Open a file for reading from the terminal. 
open/read vmiS$terminal_file sys$command 


Set up a bunch of static symbols, both internal and for the use 
of the product installation procedures. 


define = ‘‘define/nolog” 
soiee 2° 


vaticat thes = ‘“a’'’s f$elem(0,"':"', fSenvironment (‘'PROCEDURE'’, ) 
val? feilure = %x10f5 _ ie 

yatse Soe ewets + " FIND_FILE 
vai sinetett i i a 
vmi$msg = vmidca atlback + ** MESSAGE vmsinstal 
vmi$no_error = ‘‘define/user sys$error nl:"" 
vai$no_ output = “‘define/user gyssousput nl: 
vmi$qa = f$loc(''d aert ene. f$len(p4 
vmi$qa_fail == false 


PAPAAAAAA RAP AP AAARAAPAAAAAABAAMHHH MHI Mw 


| vmi$_success = 4x19#50001 N 12 


§ ¢ 
I$ Yad Eenatporcaa’= 2940) S5008°° or" 

vmi$_unsu = 
$ vni Sapdate marker = Topen/read/yrite vmi$marker_file sys$update:vmimarker.dat’’ , 
: * "see tUsSgersy iC" RSION"*) , “TRIM, UPCASE'') 

J = x e oW 
$ if fSext( shu) e+ a rend, {Slog Ww) “ne. f$len(w) then - 

vmi$Svms_ver 2 . - 
“Wao tazL ase ct int(fSelem(0,"."",w2)), fSelem(1,""."",w2)) 

§ if fSext(O.1,w) .nes. "V" .and. f$loc('"."".w) .ne. f$lentw) then - 


vmi$vms_version = “UPDATE FT," + 

anal Sfao(’'27LIAS'', Sint (fSelem(0,"'."",w2)), fSelem(1,"'."',w2)) 
if fSloc(".".w) .eq. fSlen(w) then = 

vmi$vms_version = ‘UPGRADE FT,"' + w 


Enable CTRL/Y. 
From now on, errors or severe errors should cause us to quit. 


on control_y then goto CONTROL_Y 
set control=(t,y) 
on error then goto error_done 


———-— 
— -——- 


— 


Make sure any options were specified correctly. 


if p3 .nes. ‘"* then if p3 .nes. ‘OPTIONS’ then vmi$msg f invoptions - 
“To specify options, parameter 3 must be OPTIONS." 


If we are called with the B option, then STARTUP.COM thinks we need 
to recover from a crash during installation. 


if vmi$booting then goto STEP_12 


Set up a symbol to say whether or not we are installing to an 
alternate root. Define a logical name for the root. 


vmi$alternate_root = f$loc("'R'’,p4) .ne. f$len(p4) 
if vmi$Salternate_root then vmi$root = p 
if .not. vmi$altérnate_root then vmi$root = f$trninm(''SYSSSPECIFIC') 
| 
| 


PP APAAPAAAMAAAAAAPAAAAMHHMHKHAHHKMKHFKMHKMFNNNMOMOYN 


vmi$specific = vmi$roo 

vmiScommon_root = f$search(*" *vmi$root'(000000)syscommon.dir'’) .nes. ‘”’ 
if vmi$common_root then vmi$root = vmi$root - ‘']"' + ‘'syscommon.]"' 
define/nolog/Eranslation=(terminal,concealed) vmi$root ‘vmi$root 
define/nolog/translation=(terminal,concealed) vmi$specific ‘vmi$specific 


If the user has requested the file log option, then equate a bunch 
of DCL verbs so they will log. 


if f$loc('L’’,p4) .eq. fSlen(p4) then goto 1d 
append = ‘‘append/log"’ 
backup = ‘‘backup/log" 


library = 
purge = “purge/ log’ 2 
rename = ‘‘rename/log 


_ 
a 


If VMIORIG.TLR is still around, then we have detailored the system 
disk but not retailored it. Make the user do something. 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
3 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


if f$search("'sys$update:vmiorig.tir’’) .nes. then - 
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| vmi$msg f vmiorig ‘VMIORIG.TLR still exists; please see your documentation." | 


If the user ~» 3 requested the get saveset option, then skip on 
ahead to Ste 


if f$Sloc(''G'',p4) .ne. f$len(p4) then goto STEP_2 


Now we are going to check various environment items to ensure that 
wee reetty can perform the installation. This includes account 
privileges, quotas, the state of the network, and the status of 
other processes on the system. 


fe then ontlecd ailekesetes “hax” » TRIM") .nes. ‘’SYSTEM’ 

a then vmidmsg w notsystem vou are not logged in to the SYSTEM account.”’ 
it Leal tee My 6 By then o le 

sg w nosetprv are no oh. = on an account with SETPRV privilege." 


- oO 
ll 
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° and. 
f$getjpic'’’,""FILLM') .ge. 20 then goto if 
or more account quotas may be too low." 


= tru 
it ¢$trnLnm("'SYSSNODE") -eqs. ‘"’ then goto 1g 
Ae w decnet ‘Your DECnet network is up and running." 
a = true 
f false 
fSgetjpi('’',"PID') 


:” = f$pid(c) 
eqs. 
it 6 he oa 
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AAS 
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$ 
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If any of the environment items were bad, ask the user about it. 
(Unless in Q/A mode, in which case they were warned...) 


if vmi$qa then goto STEP_2 ' 
if a then vmi$callback ASK vmi$ "Do you want to continue anyway” 


no *vmi$callback HELP_CONTINUE"’ 
if a then if .not. vmi$ then goto all_done 


Bee”, 


ms 


Verify that the user has backed up the system disk. 


geben" y ASK vmi$ “Are you satisfied mika the backup of your system disk" - 
b ‘***yvmi$callback HELP_BACKU 

if .not. att then goto all_done 

goto STEP_2 
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Step 2 wih” parameter 2 if it was not specified, and checks it 
for validity. 


‘ape pi = 


$2a: yris, 2s 

$ if 2 eR g vel then vmi$callback ASK v 
**ymi$callback HELP_DEVI 

aptoiace = "vatd’ 


if (f8Lo¢ (“C""- mi Splace? eq. fSlen(vmi$place)) .and. ~, 
Sext(f$len(vmi$ pony “1.,1.vmi$place) .nes. ‘:'') then - 
mi$place = yatser ec "! 
vni$renote = fS$parse(vmi place..." NODE" “SYNTAX _ONLY'') nes. ‘"" 
vmi$device = "bese to"8 vnitse vee DEVICE’, SYNTAX ONLY") 
vmi$console = f$ext(0,3,vmiSdevice) -eqs. 
if vmi$remote .or. yai $consol ¢. iw goto “ 
if wogetey ti yaroeey “EXIST then 
if f$getdvi (um{sdevice,” DEVELASS") .eq. 1 - 
tSgetdvi (ymisdevice. ‘DEVCLASS') .eq. 2 then goto 2d 
ating e baddisdev ‘Device ‘'vmi$device must be a disk or tape." 
goto 


ais "Where will the distribution volumes be mounted’ - 


PRMMMM rew 


~m 
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If we will be using the console device, connect it, dismount the 
console volume, and allocate it so no one can get at it. 


vmi$remount = vmi$console 
f .mot. ymi$console then goto 2g 
sysgen = ‘‘$sysgen"’ 
sysgen connect console ss 
-not.. popetiut ive] Seey ice Ass bh ) then vmi$msg e badcondev - 

Console device ' mi$dev ice, goes not exist. 

if .not. fSgetdyi (uniSdevice MEXISTS then goto 2a 

if f$getdvi vmi$device, MNT’) then Sieonmatideet *vmiS$device 

allocate ‘vmi$device 


™m 
ire} 


Now that we've checked the device and it's definitely configured, 
we can prepare our final distribution spec. 


if .not. vmi$remote then val place = f$parse(vmi$place pe BEVIEE » “SYNTAX_ONLY"') + = 

f$parse(vmi$place,''C000000)"', , “DIRECTORY, “SYNTAX_ONLY') 

if vmi$remote then vmi$place = f$parse (vaisplaces, ‘NODE’ a SYNTAX ONLY'') + = oi 
f$parse(vmi$place,,,' DEVIC te. ‘SYNTAX_ONLY'S + f$parse(vmiSplace,.,' ‘DIRECTORY'',""SYNTAX_ONLY'*) 


vmi$first_next = “first” 
goto STEP_3 
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Step 3 determines which products are to be processed and the order 
in which to process them. 


Sad 


STEP_3: 


Find out which products the user wishes to process. 


| 
yaiSlist == pl 
‘ft vmiScommand pl .nes. *“" then goto all_done 
vmiScommand_p1 "= pl 
if nes. then goto 3b 
say ‘Enter the products to be processed from the "',vmi$first_next,- 
" distribution volume set.’’ 
ymi$catlback ASK vmi$li st ‘Products’ " s,2,'""*ymi$callback HELP_PRODUCT’’ 
if vmiSlist .eqs. ‘*2" .or. vmi$list .eqs. ‘EXIT’ then goto all_done 


Ral next = ‘next’ 


Ww 
Co 


If necessary, have the user mount the first distribution volume. 

If a disk volume is mounted Files-11, it is assumed to be the right one. 
if 

if 


PAAAAAAAAHA PKHHKHHHMHYNOONM 


vmi$remote then fee. 
sgpetey i jvai dev ce, “DEveuass") “eq. 1 .and. - 
go pag Sdevice,’MNT') .and. - 
-not. Voge tdy (val Séav ice FOR'') then goto 3f 
if f$ tegt Nemgheee oy gl ‘“NT''S then dismount/nounload "vmi$device 
vmi$qa then 
vmi$callback PLACE VOLUME ‘Please mount the first volume of the set on ''vmi$device.’ 
if .not. $status then goto STEP_2 


mount/override=id/noassist/nowrite ‘vmi$device 
vmi$remount = true 


Lv, 
~~ 


! Ensure that the distribution spec that the user entered can be 
: used to search the volume. 

tSperse(vaiSolace) eqs. ‘"* 

it w then vartnes 2 S baddisdir “Directory ‘‘vmi$place does not exist."’ 
if w then goto STEP_ 


PAARAAARAAPAPAARPAPAHAARARAAARAHAARAARKS 


: Now we will inated which products are to be processed by matching 
‘ the contents of the distribution volume to the user's List 
if vmi$list .nes. ‘'*’’ then vmi$list == '','' + vmi$list + "',"’ 
vmi$list_count = 
3L: $= gti yh ie ot a;"’) 
48 parse(s... ae “SYNTAX_ONLY") 
“vm mi List ne 
‘ Wle “ay reget ” iymigtist» s..f f$len(vmi$list) .and. - ca 
feloc ce "+ #Sext( f$len(p) 9s ",vmiSlist) .eq. fSlen(vmi$list) then goto 31 
$ vmi$list_count = vmi$list _count + 
$ vmiSlist*vmi$list_count =p 
ee, goto 31 
$s if vmiSlist zcount eq. 0 then vmi$msg e noprods - 
of the spec fied produ ts ere found." 
. if vmi$Slist “count eq. 0 then goto STEP_ 
$! Now we will sort the product names in siunsbetlic L order. This_is a 
$! straight selection sort taken from Knuth volume 5, section 5.2.3. 


| 
| 
| 
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s2a: 


j = vmi$list_count 
f j «lt. 2 then goto 3siz 


Now we will List the product: we intend to process. 
say poteet rine following products will be processed: !/'') 
p = vmi$list'i 


v= fSext(f$len(p)-3,3,p) 
say pstage™ 'AS VIUL.!AS'' p-v, f$int(f$ext(0,2,v)), f$ext(2,1,v)) 
a, 


+ 
f i .le. vmi$list_count then goto 3t 


Dismount the distribution volume and remount it foreign for BACKUP. 
Don't bother if we didn't mount it in the first place. 


if vmi$remount then dismount/nounload ‘vmi$device 
if vmi$Sremount then mount/foreign/noassist/nowrite/nomessage ‘vmi$device 


If the user specified the get saveset option, then we skip on ahead 
to a special step which does the work. Otherwise we continue on 
to install the products. 


vmi$list_done = 0 
if f$locT''G'',p4) .ne. f$len(p4) then goto STEP_13 
goto STEP_4 


1 


$ 
$! 
$! 
Zz 
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$ 
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$ 
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$ 
$ 
$ 
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$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$. 
$1: 
$ 
$.. 
$1: 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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3; st gp 4 establishes the file environment for the installation. ; 
:" his is only done once. : 
$STEP_4 $i: 
$ if pagers: eteatr nes. ‘'"’ then goto STEP_S ; 
$! this is a fe'lored sy System, we want to detailor the system disk. a 
$! an’t bother {1 us ore tastalling to an alternate root. ; 
% veseattorig = fSgetsyi( ‘TAILORED"’) and. -not. vmi$alternate_root : 
$ if vmi$tailoring then vm Jeo} pBack 7 ILOR 

$ if vmi$tailoring then vmi$tailoring = : 
$ goto STEP_S : 


PPAAAPAE AKMPHMPHKHHMMMM 
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Step 5 begins the installation of the next product on the List. 


Determine the next product to be installed. 


vmiS$list_done = ed one + 1 
if vmi$lTst_done ot T$list_count then goto STEP_3 
vmi$product = vmi$list' umiS list. done 


Create the marker file that will allow us to recover from system 
crashes. This file contains enough state information so that we 
can determine how to finish up the installation after a crash. 


open/write vmiSmarker_file Sy, s$u Resi :vmimarker.d 
write vmiSmarker_file f$f aot i S! ASTARS EARS GRAS tas! 1AS:644s", - 
$trnl a ; forget sys.em root 
vmi$produc facility and version 
eee Toning) i pate flag 

i state B = before 

i gs roracy being updated 
f$str(vmi$alternate. root),- i True if alternate root 
f$str(vmi$common_r t),- i True if common root 

fStrninm( VMISSPECIFIC’)) ! System specific root 

close vmiSmarker_file 


Tell the user what we are about to do. 


v= Lame ay <P bead ph gy : vmi$product) 
vmi$pretty = f$fao( *,vmiSproduct-v, sotes Copeet te 2,.v)), f$ext(2,1,v)) 
say tStaot'!/!/! Beginning ta "“Eieestlerian of 'AS at 'AS!/", - 
vmiSpretty, tSext(12,5,f$time())) 
goto STEP_6 
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he 4 6 establishes the complete environment for the kit's 
installation procedure. 


If the kit's working directory exists, get rid of it. 


if FogeorchC yal scoot :Caysupd)" yatSeroduct. ir’) .eqs. ‘"’ then goto 6b 
w= ere ere sysupd.''vmi$product]*.*;"") 


w .nes. hen - 
set prot=s=rwed vmi$root:(Csysupd. ‘vmi$product...J*.*;* 
if w nes. *"* then - 


delete vmi$root:[ yeupd. .yaisproduct....Je.25* 
set prot=s=rwed ya'Sroet Sysupd) 'vmi$product.dir;* 
delete vmi$Sroot:(sysupd]'vmi$product.dir;* 


Record the number of free blocks for use by the callbacks. 
vmi$free_blocks = f$getdvi(''VMISROOT'’,'’FREEBLOCKS'') 


If the statistics option was requested, then start up a demon 
subprocess to do it. Wait for the process to record the initial 
state of the system. 


if f$loc("'S*',p4) 08. f$len(p4) then goto 6q 

if f$ etipic “PRCCNT'') .gt. 0 then stop vmsinstal$demon 

say Waiting for demon to record initial state..." 

define/table=|nm$job vmi$demon 6 

spawn/process=vms instal$demon/input=nl:/output=nl:/nowait/nolog - 
vmi$callback STATISTICS_ 

set prncese/orzerit ="fSint(f$getjpic('"',"‘PRIB'')+1) vmsinstal$demon 
Wa . . 


if f$trninm(VMISDEMON',"LNM$JOB") .nes. ‘“’ then goto 6p 
say *'...done)”’ 


If the auto-answer option was requested, then find out if 
there is an answer file or if we will be creating it. 


if fSloc(''A'',p4) .eq. f$len(p4) then goto 6f 

if fSsearch( ‘vmi$root:Csysupd]**vmi$product.ans"') .nes. 

vmiSauto_option = 

open/write vmi$auto_ file valSroot:(sysupd] vat Sproduct ens 

pea i recordans ‘‘An auto-answer file will be recorded. 
° 


then goto 6e 


vmiSauto_option = ‘"'R 
open/read vmi$auto file vatSroot:Csysupd) ymiSproduct..ans 
vmi$msg i useans ‘The auto-answer file will be used.’ 


If the callback trace option was requested, then create 
a file to contain the trace. 
if f$loc(''C'',p4) .ne. rel ontes) then - 
vmi$callback OPEN REPORT FILE vmi$call_file - ; 
vmi$root:Csysupd]'vmi$product.cbt ‘Callback Trace’ 
Create the kit's working directory. 


define vmiS$kwd vmi$root:(Csysupd. ‘vmi$product] 
create/directory/protection=o:rwed vmi$kwd 


PRAMMMMM 


PF APKMKMYONOO 


PAAAAAAMMM MM 


1 
Create a file to receive the sequence of deferred ssitheshe.” 
open/write vmi$defer_file 


Set up default values for 


vmiS$ivp == false 
vmi$purge == true 
vmi$reboot == false 
vmi$safety == true 
vmi$startup == “"!"" 
goto STEP_ 


vmiSkwd:vmidefer.com 
items defined by the callbacks. 


Invoke product IvP 

Purge files after installation 

Reboot after installation 

Sacrifice disk blocks for safer installation 
Invoke product startup command procedure 


PAAMAMMM 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$d 


Sees Event 


= 


PAPAPAPMAMUOOO 


STEP_7: 
yotScal (back RESTORE _SAVESET a 


Step 7 restores the primary kit saveset (letter A) into i.” 


working directory. 
«not. $status then goto STEP. 11 
There better be a KITINSTAL procedure in that saveset. 


if fSsearch(‘vmiSkwd: skitinstel -com'’) ,nes. ‘"’ then goto STEP_8 | 
a s¥e8_ € nop roc The kit's installation procedure is missing. 


ward 
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° 
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° 
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Step 8 invokes the kit's installation procedure. 


Yodate the state in the marker file so we can tell that the 
nstallati on has begun. 


vmiSupdate_ moby ' 
read vmiSmarker_file m 
= 111,2):=  tSext(vmissafety,.1, "us'") ! state S = safety, U = unsafe 
write/update vmiSmarker_file m 
close vmiSmarker_file 


Invoke the procedure, telling it to install the product. 
@vmiSkwd:kitinstal VMIS_INSTALL ‘fSint(f$loc('K'',p4) .ne. f$len(p4)) 


Check that the procedure succeeded. If not, forget the rest of 
this installation. 


if $status then goto STEP_9 
vmi$msg e insfail ‘The inStallation of '‘vmi$pretty has failed." 
goto STEP_11 


n" 
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Step 9 performs all of the deferred callbacks. 


If we were operating in safety mode, we will be spending some time 
performing deferred callbacks. Tel( the user. 


if vmi$safety then vmi$msg i movefiles - 
“Files will now be moved to their target directories..." 


Update the state in the marker file so we can tell that the 
deferred callbacks have begun. 


vmiSupdate_marker 

read vmiSmarker_file m 
mL111,2):= D ! state D = deferred 
write/update vmi$marker_file m 

close vmiSmarker_file 


Clear the safety flag so that all deferred callbacks are now 
performed immediately. 


vmi$safety == false 


Reopen the deferred callback file and read each record in it. 
Perform the callbacks and check their status. 


close vmi$defer_file 
open/read vmiS$defer_file ymiSkwd:vmidefer.com 
read/end of file=9b vmi$defer_file c 
vmiScallBack ‘c 
if $status then goto 9a 
waitaee e insdfail ‘The installation of ‘'vmi$pretty has failed." 
goto STEP_11 


close vmi$defer_file 


Update the state in the marker file so we can tell that the 
installation is essentially complete. 


vmiSupdate_marker 

read vmiSmarker_file m 

mC111,2):= A ! state A = after 
write/update vmi$marker_file m 

close vmi$marker_file 

goto STEP_10 


ac 
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$! 
$! 
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Step 10 invokes the product startup procedure and the IVP, 
if available and requested. 


$ 
$STEP_10: 
$ 


Before invoking anything, set the Co fouls ig hig to i working 
directory, because in a realistic situation it would point 
somewhere. Also get rid of the VMISCALLBACK symbol so call>acks 
can't be used inadvertently. 


set default vmiSkwd 
a= “delete /symbol"' !'In case L option selected 
a vmi$callback 


If the installation procedure requested that a startup procedure 
be invoked, do that now. 


vmiS$startip 

Invoke the IVP, if available, and remember its return status. 
if vmiSivp then a@vmiSkwd:kitinstal VMI$_IVP 

s = $status 

if .not. vmi$ivp then s = 1 

Restore the standard environment. 


set default missing: (missin J 
vmi$callback = ‘‘a'’+ f$elem(0,"';'', fSenvironment (‘'PROCEDURE'')) 


Tell the user what happened. 


if s then say f$fao("'!/!_Installation of !AS completed at !AS!/", - 

vmi$pretty, fSextt12,5, f$time())) é ; a 
if .not. s then vi $msg € ivpfail “The IVP for ‘'vmi$pretty has failed.’ 
goto STEP_11 
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Step 11 cleans up and loops back for the next product. 


= 
— 
oo 


Delete the kit's working directory. 


close /nolog vmi$defer_file 

set prot=s=rwed vmiSkwd:*.*;*,yvmi$root:Csysupd]'vmi$product.dir;* 
delete vmiSkwd:*,*;* 

delete vmi$root:Csysupd)' vmi$product.dir;* 


If we are collecting statistics, tell the demon we're done and 
wait for it to finish up. 


if f$loc(’'S'’,p4)_ .eq. f$len(p4) then goto ile 
define/table= nm$job vmi$demon GO 
say ‘(Waiting for demon to generate report...'’ 


wait 00:00: 
if f$trninm(VMISDEMON'',""LNM$JOB"') .nes. ‘'"' then goto 11d 
say *’...done)"’ 


Close any working files that m 
so no one thinks we're still doing an installation. 
close /nolog vmi$auto_file 

close /nolog vmi$call_file 

close /nolog vmi$marker_file 

set prot=s=rwed sysSupdate:vmimarker.dat;* 

delete sys$update:vmimarker.dat;* 


If we are to reboot, tell the user and finish up the installation. 


if .not. vmi$reboot then goto STEP_5 


$msg i reboot ‘This product requires that the system be rebooted." 


vm 
if vmidlist_done .lt. vmi$list_count then he we prodet ts ° 

“Products that have not been installed will be skipped.” 
goto all_done 


ight be open. Delete the marker file 


o 
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Step 12 is a special Hg that performs recovery if the syste 
crashes during an installation. We are called from STARTUP.C 
f a marker file exists during booting. 
STEP_12: 


Open a file for reading from the terminal. 


open/read vmi$terminal_file sys$output 


If there is a marker file, then get the information from it and 
set up some symbols. 


open/read/error=all_done vmiSmarker_file sys$update:vmimarker.dat; 
read/error=all_done vmi$marker_file m 

close vmi$marker_file 

define/translation=(terminal,concealed) vmi$root 'f$ext(0,64,m) 
vmiSproduct = fSedit(f$ext (64 39 m), "TRIM" 

vmi$tailoring = fSint(f$ext/163,1 m5) 

vmi$alternate_root = fSint(f$ext(177,1,m)) 

vmi$common_root = f$int(f$ext(178,1,m)) 

vmi$specific = fSedit(f$ext(179,64,m)," TRIM’) 

define vmiS$kwd vmi$root:Csysupd. 'vmi$productJ 

vmi$purge == false 

vmi$safety == false 


Tell the user what is happening. Then case on the state we were 
in when the crash occurred. 


v = fSext(f$len(vmi$product)-3,3,vmi$product) 
vmi$pretty = f$fao("!AS V!IUL.!AS" 
vmi$msg i recover ‘*'vmi$pretty was being insta 
goto 12" f$ext(111,2.m) 


$12B: type sysS$input: 


PAAPAPAAAAAAAAAA AA AMAAMMHMMMHMMHMOMNMMH 


Nothing on your system disk had been changed before the crash. Simply begin 
the water tag | again. 
goto 127 


$ 
$12S: type sys$input: 


Although files on your system disk ney have been changed, the system should 
be ina ae ty ep Simply begin the installation again. 
goto 122 


$ 
$12SL: type sys$input: 


The following library was being updated when the system crashed. Other than 
that, the system should be in a usable state. Restore the Library from backup 
and then begin the installation again. 


$ say" ‘*,f$ext(113,64,m) 
$ goto 122 


Bi gus 
$12UL: type sys$input: 


The installation was being performed in such a way as to minimize disk usage. 
One or more files aay now be in an unusable state, Please restore your 
system disk from backup and then begin the installation again. 

; goto 122 


»vmi$product-v, f$int(f$ext(0,2,v)), f$ext(2,1,v)) 
(Led when the system crashed."' 


PAAAAAAAAAMPMAMAAMAMMAMMMHMMMMMWH 


an OP es ee AD ee Aan am mmtAatar CMe EA PA ek 
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BeCeweowseveeRe 
me Owe se we 8 oe a ee 


porate sere ee=renenemta te elem 
| $120: type sysS$input: 


VMASINSTAL will wie abby | to spenpeees the installation, because it was almost 
done before the cras Please ignore any error messages Listed below. 
After boot ing 1s completed, ~, UST boot the system again. 


if vmi$tailoring .eq. 2 then _vmi$callback MOUNT_LIBRARY_DISK 
if .not. $status a ggto 0 122 
open/read/error=1 213 ed file Te vmidefer.com 
read/error=1 . vmiS$defer_file 
vmi$callback 


12Dd: close yntdeter tite 
goto 122 
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type sysS$input: 


he vee: was completed satisfactorily. 
goto 


Now we can just complete VMSINSTAL in the rormal fashion. 


set prot=s=rwed vmiSkwd: *,*;%,vmi$root:Csysupd] 'vmi$product.dir;* 
delete vmiS$kwd:*,*; 

delete vmi$root: taveupa’ vmi$product.dir;* 

type sysSinput: 


~m ~m nm 
N > 


Please read your documentation for a complete description of installation 
crash recovery. There may be additional things that you need to do manually, 
pee as te Ae system disk or restoring the tailored environment. 

goto 


done 
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Step 13 is a special step that handles the get saveset option. The 
user simply wants to copy all the savesets for the specified 
products from the distribution volume into a disk directory set 
aside for the purpose. 


SSTEP_13: 
$ 


$! 
$! 
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Determine the directory in which the savesets are to be copied, and 
ensure that the disk is mounted and ready. 


Pp 

vmi$ == p5 

if pS .eqs. ‘"' then vmi$callback ASK ymi$ "Into which directory are the savesets to be copied’ - 
us ***umiScallback HELP_GET’ 

get diy, = vmi$ 


p 
ae aes Wpoeteutiget_sir, ERIStS’) then goto 13b 
et_for = 
Sete less = f$ eteyt Coes dir,’ DEVCLASS'*) 
get_dev = f$getdvi(get_dir,'FULLDEVNAM') 
scratch dev = get_dev 
f (get_class .eq. 1) .and. f$getdvi(get dev,''MNT'’) - 
and. .not. f$getdvi(get_ dev," FOR’) phen, goto 13d 
t.dir = get_dev + f$ arse(get_dir. 0000001". .” ARE CTORY,  SYNTAR ONLY*’) 


a~aD 


<q — 


get_class .eq. 9) then vil = “initialized and mounted." 
i$m g i devmnt ‘Device ‘‘get_dev will be ‘'vi'"’ ‘y 


get.class .eq. 1 then v = ‘'disk pack’ 
get_class .eq. 2 then v = ‘'tape’ 

v .eqs. then v = ‘media 

i$callback place_volume ‘Place a blank ‘'v in ‘'get dev.” 
f (get_class .eq. 1) then initialize ‘get_dev vaxvmskit 

y = “/foreign’ 
if (get_class 09. 1) then v = ‘‘/over=id"' 
mount /noassist /write ‘v' ‘get_dev 


oe od Qs Sea 


i 


< 0 ee, a ae 


get_for = 1 
goto 13 


e 
ag e devnotexist ‘Device ‘'get_dir does not exist." 
oto 15a 

f f$parse(get_dir) .nes. ‘"* then goto 13e 
vaiSuee e badgetdir ‘Directory '‘get_dir does not exist." 
goto 15a 


If necessary, create a top-level work directory on the scratch disk. 
This directory will be used to restore the savesets, so that new 
savesets can then be created in the target directory. 


if get for then scratch_dev = "SYSSSYSDEVICE:"" | 
scratch_dey = Hegetdvi ficrateh_dev. ‘FULLDEVNAM'*) 
define vmiSkwd "Straten dey vmiwork] 

v = scratch dey + *'[O0Q000]vmiwork.dir’ 

td = f$trninm("VAISKWD"') 


scratch credir = fSsearch(y) -e95. vue ; 7 
if scratch credir then vmi$msg 1 createdir ‘Creating temporary directory ‘'td.' 


E 14 
if scratch credir. then -Sengte/Strectery/pretect tence: rwed vmiS$kwd 
we — vmiSkwd:*,*'') 
if w .nes. then set prot=s=rwed vmiSkwd:*.+;* 

w .nes. '"' then delete vmiSkwd:*,*;* 


Teli the user about the funny error messages that will happen. 


PRMHMMMOMM 


type sysS$input: 


Because VMSINSTAL does not know how many savesets comprise a software 
product, it will simply copy as many as it can find. Do not be 
concerned about error messages from BACKUP after all savesets have 
aon copied. 


$! Now we go into a main loop to restore the Soyosess for Ae {Product 
$! in the list. Tell the user which product we're Re ts ng 
$! and then restore and back up each saveset into t terest Directory. 
$! Finally, tell the user how many savesets were copied. 


$131: yatsl ise Sere = og s$one +14 
if vmi$Llist_done a Oi $list “em then goto 13r 
vmi$product = vmi$ ist’ Wimististog 
v =, fSext(f$len(vmiSproduct)~ 3 xvi Sproduct) 
vmiSpretty = f$fao(’!AS VIUL. 1AS" roduct-v, f$int(f$ext(0,2,v)), f$ext(2,1,v)) 
say f$fao('!/!_ Getting sayesets for !A 1/"" ymi$pretty) 
w= f$search( ‘vmiS$k — *'*) 
fw .nes. mm then s t prot=s=rwed vmiSkwd:*.*;* 
if w ones. then Seleve vmiSkwd:*,*;* 
w = f$search('"') 


saveset = 
13n: letter = fSext(saveset,1 gee ceer ORL SeL SOC ens TUNER TE? 
if saveset .ge. 26 then letter = f$string(saveset+1) 


vmi$callback RESTORE vSAVESET ‘Letter 
if .not. $status then goto 13p 
saveset = saveset + 1 
on error then goto 13s 
if f$length(letter) ote 
etter = f$fao( Sumy ren, . fSinteger(letter)) 
backup/ interchange/ver' ty vmiSka t;t = 
et om Sereduct.* Letter /seve. set ‘vmi$p6 
on error Phen” oo error_done 
vmi$p6 = . 
w= ibsearene ‘vmiSkwd:*,*'') 
if w .nes. then set prot= =s=rwed + pes t ,t;8 
“ .” nes. "then delete vmiS$kwd:*. 
a Veqeeres n¢'"") 
gote 


say f$fao("'!/!_A total of 'UL saveset!%S copied for !AS"', 
saveset, vmi$pretty) 
goto 131 


! Delete the work directory. 


2 » Seocereny vetthuds ee") 

if w .nes. *** then set prot=s=rwed + ee *,e;8 
if w ones. then delete vmiS$kwd:* 

w = f$search('" 


if scratch _credir then set prot= =s=rwed ‘scra arch es meee ae ht na dir;* 
if scratch_credir then delete ‘scratch_dev(000000)vmiwork.dir;* 


PAAPRAAARAAHAAGA PHHAGHGFAPAGH RH PBMHHHHKHHHHKHHHHKHHKHKVKHKHO 


Loop back for more products to get. 


aor El 


vm! 
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., 
$13s: 
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$ 
% 
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$ 
$ 


goto STEP_3 
An error occurred in creating the saveset 


watones e Re senrenti ‘An error has eccurres | in receeeting the saveset.” 
eves 3 of ohgraten directory ‘'td will be deleted. 
¥" fSsearcn(* 


w nes. * then set rnd EE we apes et; 
if w nes. ‘"* then delete vmiSkwd:*. 
v= “tisear chc'"’) 


if scratch_credir then set wineret * scratch gOSvaivort dtrze .dir;* 


if scratch_credir then delete "scratch ~devl0 00000J vmiwork 
if (get_class .eq. 1) then delete ‘get_dir''vmi$product.' letter; 
goto error done 


seein 
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We come down here when we are all done. Hopefully the installation 
was completed successfully, but we come here in any case. 


ww 


¢e 
a 
2 


$ se* noon 

% vmi$msg f unexpected ‘Installation terminated due to unexpected event." 
$ vmi$reboot == false 

$ vmi$qa_fail == true 

$all_done: 

$ on control_y then goto ad20 

: set noon 

3 If the demon is still running, shut it down now 

$ if f$loc(''S'',p4) .eq. f$len(p4) then goto ad15 

$ vmi$no_error 

$ vmi$no_output 

> set ob gg ehhh ah gt ell ta Sie vmsinstal$demon 
$ not. $status then goto adi 


define/table=|nm$job vmi$demon GO 
say Ta) =, for demon to generate report...'' 
wi 7 . 


a :00: 
if f$trninm(''VMISDEMON’',""LNM$JOB'') .nes. ‘"’ then goto ad11 
say **...done)"’ 


Close any working files we might have open. Delete any marker file. 


close /nolog vmi$call_file 

close /nolog vmiS$defer_file 

close /nolog vmiSmarker_file 

close /nolog vmi$product_file 

close /nolog vmi$temp_file , 

w = f$searc S sysSupdste:vatnerker.det™) 
e 


if w .nes. n= 
set prot=s=rwed sys$update: vmimarker.dat;* 
if w.nes. ‘"* then - 


delete sys$update:vmimarker.dat;* 


Restore the file environment. This includes retailoring 
a small system disk. 


if fStrninm(’STARLET’’,""LNMSPROCESS'') .nes. '"' then deassign starlet. 

if f$trninm('IMAGELIB",'"LNMSPROCESS’') .nes. ‘"’ then deassign imagelib 
if ***vmi$tailoring’’’ .eqs. ‘'2°' .and. .not. vmi$booting then - 
vmi$callback RETAILOR 


Dismount ony distribution volume that might still be mounted. 
If we're using the console device, remount the console volume. 


if ***vmi$remount'’’ .nes. ‘1"' then goto ad20 
if f$getdvi(vmi$device,’MNT’’) then dismount/nounload ‘vmi$device 
if vmi$console then vmi$callback REMOUNT_CONSOLE 


Restore the original environment as saved when we started. 


d20: 
! These two files have to be closed now, and not before, because they 
are used by the ASK callback in REMOUNT_CONSOLE. 


close /nolog vmi$auto_file 

close /nolog vmi$terminal_file 

set default war reeyes dir 

set protection=('vmi$saved_prot)/default 


PAPAPRARAAARARAAAAAAAAMM PMHAAMMMMHM GM PMHMMMMMMMMMMMMMM 


PAAAAMS 


PF PAPAMPHHENOHSN 


if -not. vmi$debug then set uic vatssoyed uic 


f .not. vmi$debug then w = f$setprv(vmi$saved_privs) 
set message ‘vmi$saved_msg 


If we were to reboot after the last product, do it. 


if "*vmi$reboot'’’ .eqs. ‘1’ .and. .not. vmi$debug then - 
asys$system:shutdown minimum - " 
‘Reboot after ‘‘vmi$ retey installation." - 
no yes ‘'soon’’ no REBOOT_CHECK 


We're all done. 


if fStrninm(''VAISROOT’’,""LNMSPROCESS'') .nes. ‘'"’ then deassign vmi$root 
if f$trninm(''VMISSPECIFIC’’,’"LNMSPROCESS'') .nes. ‘"’ then deassign vmi$specific 
if f$trninm(''VMIS'', "LNMSPROCESS') .nes. '"’ then deassign vmi$ 
if f$trninm(''VMISKWD'’,""LNMSPROCESS'') .nes. ‘"' then deassign vmiSkwd 
say f$fao(''!/! YMSINS TAL procedure done at !AS!/!/"', - 
. fSext(T2,5,fStime())) 
ex 


al 
ul 
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$ ' (Re Ge ee ee et me ee weer r eer ee eee eee eeeeeceoceceeeeeeeeceeeteeceeceee eee eoeoeeceoeeo 


$! 
$! This callback perforas the ‘‘detailoring’’ of the system disk if we 
$! have decided that this system requires it. e goal is to create 
$! as much free space on the system disk as possible. Anything that 
+ prevents us from detailoring is a fatal error. 
SOETAILOR: 

sa 
$ vmi$msg i smalidisk ‘This is a small disk system."’ 
$ type sysSinput: 


This is a small disk system and must be tailored to accomodate your new 

software products. The current tailoring environment will be recorded, and 
then system files that are not required will be temporarily removed from the 
system disk. After installation, the original environment will be restored. 


$! Get the library disk mounted. 


$ 

$ vmi$callback MOUNT _LIBRARY_DISK 

: f .not. $status then vmi$msg f nolibdisk ‘Library disk could not be mounted." 
$! Record the current tailoring environment and make sure that the 

ts system and library disks agree. 

$ if vmi$debug then goto dt40 

$ vmi$tailor record waren le vmidiff 

$ set prot=s=rwed sysSupdate:vmiorig.tir;*,vmidiff.tlr;* 

t if {$file sys$update:vmidift thr -EOF"'S .eq. 0 then goto dt18 
$ vmi$msg e Libdiff “The following system and Library disk files do not match.’ 
$ type sys$update:vmidiff.tir 

$ delete sys ypgetesvnrorte-tirse.vaidit?.tirzs , : 

$ vmi$msg f Libdiff2 ‘You must resolve these differences before continuing.’ 
gan tes delete sysSupdate:vmidiff.tir;* 

$! Tell the user how to recover if we die now. We're going to delete 

. all but the required files from the system disk. 

$ type sysSinput: 

Sdeck ae 


The current tailoring environment has been recorded in VMIORIG.TLR. If a 
power failure or drastic error occurs Gur top this installation, you can 
restore the environment by entering the following commands after mounting 
the Library disk. Please see your documentation for more details. 


$ @SYSSUPDATE:VMSTAILOR COPY VMIORIG 
$ DELETE SYSSUPDATE:VMIORIG.TLR;* 


& 


b = f$getdvi('VMISROOT’,*FREEBLOCKS'') 
vmi$tailor delete vmior a ” 

a = f$getdvi(' VMISROOT’’, “FREEBLOCKS'') = 

Say f$fao("(!'UL blocks were made gxetlabie by tailoring.)"’,a-b) 
vmi$tailoring_blocks == a - b + 200 


of peta 
= 
4 


exit vmi$_success 
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g ' eeeee SOS OS OS SS SS SS OSS SSS SES 4S24E SSS SSS SESE SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBEEEES 


$! 
$! This callback performs the ‘'retailoring’’ of the system after the 
1$! installation is complete. The goal is to restore the user's initial 
ts tailoring environment. 
SRETAILOR: aah 
3a 
$ 1? Sneg ! retailor ‘Your gciginat tailoring environment will now be restored."’ 
: f wmi$debug then goto rt29 
$! Check that there is enough disk space to bring back the files. 
3 If not, just tell the poor bastard and forget it. 
$ f = f$getdvi(''VM SROOT . FREEBLOCKS™) 
$ if f .ge. wmi$tailoring_blocks then goto rt29 
$ vmi$msg w nospace ‘‘There are not enough blocks to restore the system dick."' 
$ type sysSinput: 


There are not enough free blocks left on the system disk to restore your 

original tailoring environment. The environment has been recorded and 

may be restored manually (as described above) after sufficient space has 

been obtained by purging and/or Geleting files. . 
say f$faol’Only !UL blocks of the required !UL are available.:/"', - 

f,vmi$tailoring_blocks) 
$ exit vmi$_failure 
grters 


$! Restore the original environment. 


d= ub > Phar epeeg lt Saba |” i 
if vmi$debug then aote rt } , 
f .not. f$getdvi( LIBSSYSDEVICE’’,""EXISTS'') then goto rt40 
f .not. f$getdvi("LIBSSYSDEVICE’’,"MNT'’) then vmi$tailor mount ‘d 
vmi$tailor copy aaer*e 
set prot=s=rwed sys$update:vmiorig.tir;* 
delete sysSupdate:vmiorig.tir;* 


Remount the Library disk with no write access. 


rt30: 
if f$getdvi(d,’MNT’') then vmi$tailor dismount 
vmi$tailor mount ‘d 
exit vmi$_success 
rt40: 


PAHAAPPRFRHAGRPAARAHAPAHESH 


type sysS$input 


The Libiary disk has been dismounted, and VMSINSTAL is unable to 

restore your previous tailored configuration. After VMSINSTAL 

exits, you must manually retailor your cont iauresien by pount ing ” 
the Library disk, issuing the command "‘@SYSSUPDATE:VMSTAILOR COPY VMIORIG", 
and then delete SYSSUPDATE:VMIORIG. TLR. 


. exit vmi$_success 


$! 

$i 
$i 
$i 


PAAAAAAAAAAAHAMHMHHMHMHMMMMMNOM at 


PAM 


sd20: 


CORD 


PRAARMAM DAAAAARAAAAAAAAAAG 


FILES ADDED 
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$! ' eewrerrwrzoererecereanwoane = PSS OS SOS OS SSS SSS SSE SSS SES SS SE S46 E46 SSSSES SES EES E8242 2682 0/2 282820 


This is the statistics demon callback. it is responsible for _patenens 
=e installation of a product and producing a statistics re prers 
le have been spawned with a higher priority than the instal er. 


yiewee DEMON: 


n @rror then goto 3d99 
sav -bypass = fSsetprv("BYPASS'') 
directory = ‘director Sawn er/notrailer/exclude=vmit.*/width=file=48/column=1/size"' 
set default vmi$root:[sysupd 


Take a snapshot of the system directories before we begin. 
directory/output=vmidemo Nepce vmi$root:(*...] 

i = f$getdvi( PYMISROOT™ "FREEBLOCKS'’) 

b = f$time() 

Open up a file to contain the statistics report. 


define s vmi$root:(Cs SRT FIVE spisevoe ait 
vmi$callback OPEN_REPORT_FILE vmi$stat_file s ‘System Disk Statistics Report"’ 


Turn on_retention so all file accesses are marked with an expiration 
date. Then tell our parent that it can do the installation. 


if .not. vmi$debug then set volume/retention=(-::.01,-::.01) 'f$getdvi(''VMISROOT’’,"FULLDEVNAM’') 
deassign/table=|nm$job vmi$demon 


Now we just sit in a loop, watching the free block count — the 
° 


installation. VMI SDEMON will appear when the installation is done. 
n=i 
x= fi 

wait 0 

f= rSpetavic® *IRISROOT", *"FREEBLOCKS'') 

if ‘ n th — . = 


if fst gnina CVn SURISDEMON", “LNMS$JOB"") .eqs. *"* then goto sd20 
Turn off retention. Then report various block statistics. 


if .not. iSstere rit then set volume/retention=(-::.00,- 90) *f$getdvi(''VMISROOT'’,"’FULLDEVNAM'') 
write vmi$stat_file f$fao("!21<Initial Free Blocks: 'St7UL", 4) 
write vmi$stat_file f$fao(''!21<Minimum Free Blocks: !>!7UL'',n) 
write vmi$stat_file f$fao(''!21<Maximum Free Blocks: !>!7UL'',x 
write vmiS$stat_file f$fao(''!21<Final Free Blocks:!>!7UL",f) 
f$fa 
t$f 


write vmi$stat_file ' 
write vmi$stat_file f$fao(''!21<Peak Utilization:!>!7UL (Initial-Mi 

$fao("'!21<Net Utilization: '>!7SL (Initial-Fi 
close vmi$stat_file 


write vmi$stat_file 
convert/fdl=sys$input: s s 

Saenenee _CONTROL carriage_return 
purge s 


Now look at the system directories and report files added, deleted, 
modified, and accessed. 


append sys$input: s 


oer wf "WYN fF ww 


$d30: 


$d39: 


PAAAHAA PHEKHHH "MH 


Serre yQoereer 
a 


ILES DELETED 


L 14 


+E bee bly ms oan p mig | vmi$root:(*...] 
dif ference/output=vmidemon.dif/separated=revision/match=1/nonumber - 
vmidemon.pre .pst 
search/output=vmidemon.sch vmidemon.dif - 
eee’ “file "difference, vmidemon/match=nor 
append vmidemon.sch s 


end sys$input: s 


difference/output=vmidemon.dif/separated=master/match=1/nonumber - 
vmidemon.pre .pst 

search/output=vmidemon.sch vmidemon.dif - 
eee", “file '.difference,vmidemon/match=nor 

append vmidemon.sch s 


end sysS$input: s 


ILES MODIFIED 


directory/output=vmidemon. tmp/modified/since=""""b'"' vmi$root:(*...] 
open/read vmiStemp_file vmidemon.tmp 
open/append vmi$stat_file s 
read/end_of_Tfile=sd39 vmi$temp_file f 
if fScvtTimeTf$file(f,""CDT'')) .Tts. fScvtime(b) then - 
write vmi$stat_file f 
goto sd30 


close vmiStemp_file 
close vmi$stat_file 
3 


append sys$input: 


FILES ACCESSED (except installed images) 


directory/output=vmidemon.tmp/expired/since="""‘b'''/before=""""f$time()'’ vmi$root:(*...] 
append vmidemon.tmp s 


Clean up and tell our parent that we're done. 


set noon 

if .not. vmi$debug then set volume/retention=(-::.00,-::.00) 'f$getdvi(''VMISROOT'’,'’FULLDEVNAM'') 
set prot vmidemon.*;* 

delete vmidemon.*;* 

x = f$setprv(sav_by ass) 

Soges tgny Leblonine ROD vmi$demon 
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